home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #113 (1991-01)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #113 (1991-01)(Amiga User Group Deutschland e.V.).adf / Rätsel / zweien (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-03  |  3KB  |  121 lines
  1.  
  2.  
  3.  
  4.  
  5. '***********************************************************************
  6. '*     Detlef Kornatz                                                  *
  7. '*     Feuerbachstraße 6                                               *
  8. '*     D-4300 ESSEN 1                                                  *
  9. '***********************************************************************
  10.  
  11. SCREEN 2,320,258,5,1
  12. WINDOW 2,"        2 ? 2 ? 2 ? 2 ? 2 = 4",,0,2
  13.   
  14.   PALETTE 0,0.34,0.44,0       
  15.   PALETTE 1,0.2,0.2,0.2
  16.   PALETTE 2,0.76,0.97,0
  17.   PALETTE 3,0,0,0
  18.   COLOR 31,0
  19.   LOCATE 2,1:PRINT "Setzen Sie vier verschiedene Zeichen in"
  20.   LOCATE 4,1:PRINT "die vier Zwischenräume zwischen die "
  21.   LOCATE 6,1:PRINT "Ziffern der Gleichung,so daß  x = 4"
  22.   LOCATE 8,1:PRINT "herauskommt.Es gibt zwei Möglichkeiten."
  23. anfang:
  24.  
  25.   COLOR 6,0
  26.   LOCATE 16,3:PRINT "  2     2     2     2     2   =   x    "
  27.   LOCATE 19,3:PRINT "Sie bekommen nur diese vier Zeichen."
  28.   LOCATE 22,3:PRINT "  [ + ]  [ - ]  [ * ]  [ / ] "
  29.   
  30.   COLOR 17,0
  31.   LOCATE 29,4:PRINT "NEU"
  32.   LOCATE 29,10:PRINT "SETZEN"
  33.   LOCATE 29,20:PRINT "LÖSUNG"
  34.   COLOR 10,0
  35.   LOCATE 29,31:PRINT "ENDE"
  36.  
  37. taste:
  38.      ON MOUSE GOSUB mausdruck
  39.      MOUSE ON
  40.      WHILE 1 : WEND
  41. mausdruck:
  42.      druck=MOUSE(0)
  43.      x=MOUSE(3) : y=MOUSE(4)
  44.    IF x>10 AND x<60 AND y>215 AND y<240 THEN GOSUB neu
  45.    IF x>70 AND x<135 AND y>215 AND y<240 THEN GOSUB zeich 
  46.    IF x>230 AND x<270 AND y>215 AND y<240 THEN GOSUB  ende
  47. RETURN
  48. aufloe:
  49.   LINE (0,0)-(310,210),0,bf  
  50.     COLOR 9,0
  51.   LOCATE 16,3:PRINT "  2  -  2  /  2  +  2  *  2   =   4   "
  52.   LOCATE 18,3:PRINT "  2  /  2  +  2  *  2  -  2   =   4   "
  53. RETURN 
  54. neu:   
  55.       COLOR 5,0
  56.   LOCATE 16,3:PRINT "  2    2    2    2    2   =   x    "  
  57.   LOCATE 22,3:PRINT "   +   ,   -   ,   *   ,   /     " 
  58. zeich:
  59.     LINE (0,0)-(310,210),0,bf
  60.     COLOR 5,0
  61.      LOCATE 16,3:PRINT "  2    2    2    2    2   =      "
  62.      LOCATE 22,3:PRINT "   +   ,   -   ,   *   ,   /     "
  63.       a=2 : b=2:c=2 :d=2
  64.      COLOR 17,0
  65.      LOCATE 2,10:    LINE INPUT "Zeichen 1      ";a$
  66.      LOCATE 16,8:PRINT a$
  67.       IF a$="-" THEN g=a-a
  68.       IF a$="+" THEN g=a+a
  69.       IF a$="*" THEN g=a*a
  70.       IF a$="/" THEN g=a/a
  71.     LOCATE 18,9:  PRINT g       
  72.      LOCATE 4,10:    LINE INPUT "Zeichen 2      ";b$
  73.      LOCATE 16,13:PRINT b$
  74.       IF b$="-" THEN f=g-b
  75.       IF b$="+" THEN f=g+b
  76.       IF b$="*" THEN f=g*b
  77.       IF b$="/" THEN f=g/b
  78.       LOCATE 18,14: PRINT  f
  79.      LOCATE 6,10:    LINE INPUT "Zeichen 3      ";c$
  80.      LOCATE 16,17:PRINT c$
  81.       IF c$="-" THEN h=f-c
  82.       IF c$="+" THEN h=f+c
  83.       IF c$="*" THEN h=f*c
  84.       IF c$="/" THEN h=f/c
  85.      LOCATE 18,19:PRINT  h
  86.      LOCATE 8,10:    LINE INPUT "Zeichen 4      ";d$
  87.      LOCATE 16,22:PRINT d$
  88.       IF d$="-" THEN i=h-d
  89.       IF d$="+" THEN i=h+d
  90.       IF d$="*" THEN i=h*d
  91.       IF d$="/" THEN i=h/d
  92.       COLOR 6,0:LOCATE 16,31
  93.       PRINT i
  94.       IF i= 4 THEN LOCATE 18,30:PRINT "richtig" :  SOUND 493.88,5,100:SOUND 293.66,5,100
  95.       IF i< 4 THEN LOCATE 18,30:PRINT "falsch"  : BEEP
  96.       IF i> 4 THEN LOCATE 18,30:PRINT "falsch"  : BEEP
  97.    ON MOUSE GOSUB mau
  98.    MOUSE ON
  99.    WHILE -1
  100.    WEND 
  101. mau:
  102.    dr=MOUSE(0)
  103.    x=MOUSE(1) : y=MOUSE(2)
  104.    IF x>10 AND x<60 AND y>215 AND y<240 THEN GOSUB neu
  105.    IF x>160 AND x<190 AND y>215 AND y<240 THEN GOSUB aufloe
  106.    IF x>230 AND x<270 AND y>215 AND y<240 THEN GOSUB  ende
  107.    IF x>70 AND x<135 AND y>215 AND y<240 THEN GOSUB zeich 
  108.    RETURN    
  109. ende:
  110.    WINDOW CLOSE 2
  111.    SCREEN CLOSE 2
  112.    SYSTEM
  113.    END
  114.    
  115. '**********************************************************************
  116. ' Detlef Kornatz
  117. ' Feuerbachstraße 6
  118. ' D-4300 ESSEN 1
  119. '***********************************************************************
  120.  
  121.